home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / screen des (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.4 KB  |  233 lines
  1. 5 REM"[141] SCREEN DESIGNER  BY WILLIAM A CHRISTIE  [158]
  2. 10 [145] A [137] 30,40
  3. 20 A[178]1:[147]"CRUNCH/DECR.MC",8,1
  4. 30 A[178]2:[147]"GETCHAR.MC",8,1
  5. 40 [151]55,190:[151]56,47:[156]:[143] END OF BASIC MEMORY=$3000-64
  6. 50 V[178]53248:[151]2040,191:[151]650,128:[151]53280,6:[151]53281,0
  7. 55 [151]1022,0:[143] RESET SCREEN MEMORY
  8. 60 [143] POKE788,52:REM DISABLE RUN/STOP
  9. 70 BASE[178]4096[172]4:A[178]BA:[141] 1510:BH[178]HB:BL[178]LB
  10. 80 [129]N[178]12224[164]N[170]63:[151]N,0:[130]
  11. 90 [129]N[178]12224[164]N[170]23:[135]S:[151]N,S:[130]
  12. 100 [131] 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,255,0,0
  13. 110 [151]V[170]21,0:[153]"LOAD"[163]12)"SCLISTREPRINT#EN DELISTSIPRINT#GNPOKEER"
  14. 115 [153][163]12)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  15. 116 [153][163]10)"FORBY WILLIAM CHRISTIE"
  16. 120 [153][163]8)"FOR COMMODORE DISK USER"
  17. 130 [153]""[163]7)"PRINTF1 :ALTER BACKGROUND COLOUR"
  18. 140 [153][163]7)"PRINTF2 :ALTER FOREGROUND COLOUR"
  19. 150 [153][163]7)"PRINTF3 :ALTER CHARACTER COLOUR"
  20. 160 [153][163]7)"PRINTF5 :SUBSTITUTE CHARACTER"
  21. 170 [153][163]7)"PRINTF7 :MAIN MENU"
  22. 180 TX$[178]"CONTSCREEN NUMBER (1-255) ?:OPEN":X[178]7:Y[178]17:[141]2000
  23. 182 SN[178]S1:SN$[178]S1$:SL[178]S2:[137]280
  24. 280 [153]"LOAD":[151]251,10:[151]252,10:[151]253,0:[151]V[170]21,1:SP[178]35:[151]56325,SP
  25. 290 CR[178]32768:DC[178]33536:[143] CRUNCH/DECR
  26. 300 CL[178]51218:[143] CLEARMID4LINES
  27. 310 RE[178]51243:[143] RETURNMID4LINES
  28. 320 GC[178]50704:[143] GETCHAR
  29. 330 RC[178]51699:[143] CHARACTER ROM COPY
  30. 340 DS[178]51755:[143] DELETE SCREEN
  31. 360 LS[178]52011:[143] LIST SCREEN NUMBERS
  32. 362 RN[178]52126:[143] RENUMBER
  33. 365 AL[178]52199:[143] ALTER SCREEN NUMBER
  34. 370 [151]V[170]21,1:[158] GC:[143] GETCHAR
  35. 380 [151]781,10:[151]782,1:[151]783,0:[158]65520:[151]V[170]21,0
  36. 390 [153]"(";[201](SN$,SL);") ";"WWAITIPE CWAITRUNCH GWAITET NWAITUM LWAIT SWAIT RWAITEN";
  37. 391 [153]"UM XWAITY"
  38. 400 [153]" VWAIT DWAITEL BWAITGN MWAITEM RAWAITM COPWAITY ALTWAIT LIWAITST MCOWAITL12WAIT"
  39. 410 [161]T$:[139]T$[178]""[167]410
  40. 420 [139] [198](T$)[178]136[167] 410
  41. 422 [139] T$[178]"R" [175][194](1022)[178]1[167]2200
  42. 424 [139] T$[178]"T" [175][194](1022)[178]1[167]2300
  43. 425 [139] T$[178]"C" [167] [151]V[170]21,1:[137] 850
  44. 430 [139] T$[179][177]"O" [167] 440
  45. 431 [137] 433
  46. 432 [161]T$:[139]T$[178]""[167]432
  47. 433 [139]T$[178]"O"[175][194](53270)[179][177]216 [167] [151]53270,216:[158] RE:[137]435
  48. 434 [139]T$[178]"O"[175][194](53270)[179][177]200 [167] [151]53270,200:[158] RE
  49. 435 [139] T$[178]"1" [167] [151]53282,([194](53282)[175]15)[170]1
  50. 436 [139] T$[178]"2" [167] [151]53283,([194](53283)[175]15)[170]1
  51. 437 [139] [198](T$)[179][177]13[167]432
  52. 438 [137] 370
  53. 440 [139] T$[178]"W" [167] [153]"LOAD":[137]370
  54. 450 [139] T$[178]"N" [167] 610
  55. 460 [139] T$[178]"G" [175] [194](1022)[178]1 [167] 720
  56. 470 [139] T$[178]"P" [167] [158] RC:[137]590
  57. 480 [139] T$[178]"I" [175] [194](1022)[178]1 [167] [158]LS:[141]1700:[153]"LOAD":[137]370
  58. 490 [139] T$[178]"S" [167] 970
  59. 500 [139] T$[178]"B" [167] 1550
  60. 510 [139] T$[178]"L" [167] 1090
  61. 520 [139] T$[178]"V" [175] [194](1022)[178]1[167] 1250
  62. 530 [139] T$[178]"M" [167] 1630
  63. 550 [139] T$[178]"D" [175] [194](1022)[178]1[167] 1750
  64. 555 [139] T$[178]"X" [167] 2400
  65. 560 [139] T$[179][177]"A" [167] 590
  66. 570 [139][194](53272)[178]21 [167] [151]53272,31:[137]590
  67. 580 [151]53272,21
  68. 590 [158] RE:[143] RETURNMIN4LINES
  69. 600 [137]370
  70. 609 [143] *****SET SCREEN NUMBER**
  71. 610 Y[178]13:X[178]7:TX$[178]"ENTER SCREEN NUMBER :":[141]2000:[151]V[170]21,1
  72. 620 SN[178]S1:SN$[178]S1$:SL[178]S2:[158]RE:[137]370
  73. 699 [143] ********GET SCREEN******
  74. 720 TX$[178]"WHICH SCREEN NUMBER ?":X[178]7:Y[178]13:[141]2000
  75. 800 A[178]S1:[141]1510:[151]820,LB:[151]821,HB:[158]RE
  76. 810 [158] DC:[139]([194](2)[175]1)[178]0[167] 370
  77. 820 [151]V[170]21,0:[151]781,13:[151]782,1:[151]783,0:[158]65520
  78. 830 [153]"          SCREEN NOT FOUND!       "
  79. 840 [141]1700:[151]V[170]21,1:[158]RE:[137]370
  80. 849 [143] **********CRUNCH********
  81. 850 [139] SN[178]255 [167] [153]"  NEXT SCREEN NUMBER>255 -ALTER NUMBER":[137]610
  82. 855 [158] RE:[143] RETURNMIN4LINES
  83. 860 A[178]SN:[141]1500:[151]820,LB:[151]821,HB
  84. 880 [151]V[170]23,1:[151]V[170]29,1
  85. 890 [158]CR:[139]([194](2)[175]128)[178]0[167]900
  86. 895 [151]V[170]23,0:[151]V[170]29,0:[158]CL:[153][163]9)"OUT OF CRUNCH MEMORY"
  87. 896 [151]V[170]21,0:[137]1630
  88. 900 SN[178]SN[170]1:SN$[178][196](SN):SL[178][195](SN$)[171]1:[151]V[170]23,0:[151]V[170]29,0:[137]370
  89. 950 :
  90. 960 [143] *** SAVE ****
  91. 970 EL[178][194](BASE)[170]1
  92. 980 EH[178][194](BASE[170]1)
  93. 990 [139] EL[178]256[167]EL[178]0:EH[178]EH[170]1
  94. 1000 [141]1170:[139] F$[178]""[167]280
  95. 1010 [158]57812F$,D,1:[151]193,BL:[151]194,BH:[143]$4000=BASE
  96. 1020 [151]174,EL:[151]175,EH:[143] END
  97. 1030 [158]62957:[143] SAVE
  98. 1040 [133]"END (Y/N)";E$
  99. 1050 [139] E$[178]"N"[167]280
  100. 1060 [128]
  101. 1070 :
  102. 1080 [143] **** LOAD *****
  103. 1090 [141] 1170:[139] F$[178]""[167]280
  104. 1091 [139] F$[178]"$"[167]1900
  105. 1100 [151]147,0:[158]57812F$,D,1:[158]62631
  106. 1110 [139] T$[178]"T"[167] 1140
  107. 1120 [159]15,8,15:[132]15,Z1,Z$,Z2,Z3:[160]15
  108. 1130 [153]"CMD"Z1;Z$;Z2;Z3:[141]1700
  109. 1134 [139] [194](1022)[178]1 [167]280
  110. 1135 [153]"ARE THESE SCREENS (Y/N)"
  111. 1136 [161]A$:[139]A$[179][177]"Y"[175] A$[179][177]"N"[167]1136
  112. 1137 [139] A$[178]"Y"[167] [151] 1022,1
  113. 1140 [137]280
  114. 1150 :
  115. 1160 [143] ***GET LOAD/SAVE PARAMETERS***
  116. 1170 [153]"LOADDWAITISK OR TWAITAPE   :";
  117. 1180 [161]T$:[139]T$[178]""[167]1180
  118. 1185 [139] [198](T$)[178]13[167][142]
  119. 1190 D[178]1:[139] T$[178]"D"[167] D[178]8:[137]1210
  120. 1200 [139] T$[179][177]"T"[167] 1180
  121. 1210 [153]T$:[133]"ENTER FILENAME :CMDCMD";F$
  122. 1220 [142]
  123. 1230 :
  124. 1240 [143] **VIEW ALL/SELECTED SCREENS**
  125. 1250 [151]53280,9:[151]53281,9
  126. 1270 [153]"LOAD"[163]6)"VIEW ALL/SELECTED SCREENS"
  127. 1280 [153][163]6)"LISTUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRPRINT"
  128. 1290 TX$[178]"ENTER START SCREENSYS :":X[178]8:Y[178]10:[141]2000:S[178]S1
  129. 1300 TX$[178]"ENTER  END  SCREENSYS :":X[178]8:Y[178]11:[141]2000:E[178]S1:[153]
  130. 1320 [139] S[177]E[167] 1290
  131. 1330 [153][163]4);:[153]"PRESS 'RETURN' FOR NEXT SCREEN"
  132. 1340 [153][163]10);:[153]"PRESS 'E' TO EXIT"
  133. 1350 [153][163]6)"PRESS 'C' FOR FIRST SCREEN"
  134. 1360 [153][163]10)"PRESS 'X' TO CORECT"
  135. 1370 [161]K$:[139]K$[178]""[167]1370
  136. 1380 [139] K$[178]"C"[167]1410
  137. 1390 [139] K$[178]"X"[167]1270
  138. 1400 [137] 1370
  139. 1410 A[178]S:AS[178]SN:[153]"LOAD"
  140. 1420 [141] 1510:[151]820,LB:[151]821,HB
  141. 1430 [158] DC:[139] A[178]E[167]SN[178]AS:[137]370
  142. 1440 [139] ([194](2)[175]1)[178]1[167]A[178]A[170]1:[137]1420
  143. 1450 [161]T$:[139]T$[178]""[167]1450
  144. 1460 [139] T$[178]"E"[167] SN[178]AS:[137]370
  145. 1470 [139] T$[178]"C"[167] 1450
  146. 1480 A[178]A[170]1:[137] 1420
  147. 1490 :
  148. 1500 [143] ****CONVERT TO 2 BYTE VAL****
  149. 1510 HB[178][181](A[173]256):LB[178]A[171](HB[172]256):[142]
  150. 1520 :
  151. 1530 [143] **INITIALISE SCREEN POINTER***
  152. 1540 [143] *****TO START OF MEMORY*******
  153. 1550 [153][163]9)"ONARE YOU SURE (Y/N)WAIT"
  154. 1560 [161]Y$:[139]Y$[178]""[167]1560
  155. 1570 [139] Y$[178]"N"[167] [158] RE:[137]370
  156. 1580 [139] Y$[179][177]"Y"[167]1560
  157. 1590 [153][163]16)"O.K."
  158. 1600 [141]1700:[158] RE:[151]1022,0:[137]370
  159. 1610 :
  160. 1620 [143] ****PRINT MEMORY USED****
  161. 1630 [139] [194](1022)[178]0[167]L[178]BA:[137]1650
  162. 1640 L[178][194](BA)[170][194](BA[170]1)[172]256
  163. 1650 [153][163]5)"NEXT SCREEN AT"L"($";
  164. 1660 L[178]L[173]4096:[129]J[178]1[164]4:L%[178]L:L$[178][199](48[170]L%[171](L%[177]9)[172]7)
  165. 1670 [153]L$;:L[178]16[172](L[171]L%):[130]:[153]")":[141] 1700:[158] RE:[137]370
  166. 1680 :
  167. 1690 [143] *****WAIT FOR KEYPRESS****
  168. 1700 [129]T[178]1[164]500:[130]:[151]198,0
  169. 1710 [161]R$:[139]R$[178]""[167]1710
  170. 1720 [142]
  171. 1730 :
  172. 1740 [143] *****DELETE SCREEN****
  173. 1750 X[178]3:Y[178]13:TX$[178]"DELETE WHICH SCREEN(S) :":[141]2100
  174. 1760 A[178][197](A$):[139] A[178]13 [176] A[178]0 [167] [158]RE:[137]370
  175. 1770 LA[178][195](A$):[129]N[178]1[164]LA:[139] [202](A$,N,1)[178]"-"[167]1790
  176. 1780 [130]:N1[178]A:N2[178]A:[137]1820
  177. 1790 N1[178][197]([202](A$,1,N[171]1))
  178. 1800 N2[178][197]([202](A$,N[170]1,[195](A$)[171]N))
  179. 1810 N[178]LA:[139] N2[178]0[167]N2[178]SN[171]1:[143] "NUM-"
  180. 1820 [129]N[178]N1[164]N2:A[178]N:[141]1510:[151]820,LB:[151]821,HB:[158]DS:[130]:[158]RE:[137]370
  181. 1828 :
  182. 1898 :
  183. 1899 [143] ****READ DISK DIRECTORY*****
  184. 1900 [159]1,8,0,"$"
  185. 1905 [161]#1,Z$,Z$
  186. 1910 [161]#1,Z$,Z$,Z$,Z$
  187. 1920 [139] ST [167] [160] 1:[141]1700:[137]370
  188. 1924 [161]#1,Z$:[139]Z$[178]""[167][153]:[137]1910
  189. 1930 [139] Z$[178][199](34)[167]Q[178][168] Q
  190. 1950 [139] Q [167] [153]Z$;
  191. 1960 [137] 1924
  192. 1998 :
  193. 1999 [143] ****GET NUMERIC INPUT*****
  194. 2000 [151]781,Y:[151]782,0:[151]783,0:[158]65520:[151]V[170]21,0:[151]650,0
  195. 2010 [153]"                                       ":TT$[178]""
  196. 2020 [151]781,Y:[151]782,X:[151]783,0:[158]65520:[153]TX$;:[139]F[178]1[167][142]
  197. 2030 [161]T$:[139]T$[178]""[167]2030
  198. 2035 [139] T$[178]"_"[167] 2000
  199. 2040 [139] [198](T$)[178]13 [167] 2090
  200. 2060 [139] [198](T$)[179]48 [176] [198](T$)[177]57 [167]2030
  201. 2070 [139] [195](TT$)[178]6 [167]2000
  202. 2080 TT$[178]TT$[170]T$:[153]T$;:[137]2030
  203. 2090 S1[178][197](TT$):[139] S1[177]255 [176] S1[179]1 [167]2000
  204. 2093 S1$[178][196](S1):S2[178][195](S1$)[171]1:[151]650,128:[142]
  205. 2098 :
  206. 2099 [143] *****GET STRING INPUT******
  207. 2100 F[178]1:A$[178]"":[141] 2000
  208. 2110 [161]T$:[139]T$[178]""[167]2110
  209. 2115 T[178][198](T$)
  210. 2120 [139] T$[178]"_" [167] 2100
  211. 2130 [139] T[178]13 [167] F[178]0:[151]650,128:[142]
  212. 2135 [139] T[177]47 [175] T[179]58 [176] T$[178]"-" [167] 2150
  213. 2140 [137]2110
  214. 2150 A$[178]A$[170]T$:[139][195](A$)[179]12[167][153]T$;:[137]2110
  215. 2160 [137]2100
  216. 2198 :
  217. 2199 [143] *****RENUMBER*****
  218. 2200 TX$[178]"RENUMBER INCREMENT :":X[178]7:Y[178]13:[141]2000
  219. 2210 [151]695,S1:[158]RN:[158]RE:[137]370
  220. 2298 :
  221. 2299 [143] ****ALTER SCREEN NUMBER***
  222. 2300 TX$[178]"TARGET SCREEN NUMBER :":X[178]5:Y[178]12:[141]2000:A[178]S1:[141]1510
  223. 2310 [151] 820,LB:[151]821,HB
  224. 2320 TX$[178]"NEW SCREEN NUMBER    :":X[178]5:Y[178]13:[141]2000:A[178]S1:[141]1510
  225. 2330 [151] 695,LB:[151]696,HB
  226. 2340 [158] AL:[139]([194](2)[175]1)[178]0[167][158]RE:[137]370
  227. 2350 [158]RE:[137]820
  228. 2390 :
  229. 2391 [143] ****PRINT CRSR CO-ORDS***
  230. 2400 A[178]1024[170][194](690)[170]40[172][194](691):[141]1510
  231. 2405 F[178]1:TX$[178]"HB=":X[178]12:Y[178]12:[141]2000:[153]HB;"LB=";LB
  232. 2410 [141]1700:[158]RE:F[178]0:[137]370
  233.